#!/usr/bin/perl -al

#use wrapCORE 'abs';
no wrapCORE 'abs';
#use subs 'abs';

#unimport wrapCORE 'abs';

our $abs = "Scalar";

print "Without wrapper";
print "\$abs = $abs";
print abs(-2);
print;

import wrapCORE 'abs';

print "With wrapper";
print "\$abs = $abs";
print abs(-2);
print;

unimport wrapCORE 'abs';

print "Without wrapper";
print "\$abs = $abs";
print abs(-2);
print;

import wrapCORE 'abs';

print "With wrapper";
print "\$abs = $abs";
print abs(-2);
print;

unimport wrapCORE 'abs';

print "Without wrapper";
print "\$abs = $abs";
print abs(-2);
print;
